﻿<!--#include file="include/config.asp"-->
<!--#include file="include/conn_f.asp"-->
<!--#include file="top.asp"-->
<!--#include file="left.asp"-->
<p align="center">
    <%
username=saferequest("username",2)
email=saferequest("email",2)
sql="select cust_id,username,password,email from customer where username='"&username&"' and email='"&email&"'"
Set rs=conn.execute(sql)
If Not rs.eof Then
    mailbody="游龙网为海内外客户提供游戏卡、Q币卡、代理服务器等数字卡销售服务<br />"&chr(13)
    mailbody="会员帐号(username):"&rs("username")&" <br />"&chr(13)
    mailbody=mailbody&"会员密码(password):<a href='http://www.cardinchina.com/resetpwd.asp?id="&rs("cust_id")&"&vcode="&rs("password")&"'>点此重置密码</a><br /><br /><br />"&chr(13)
    mailbody=mailbody&"游龙网网址:<a href='http://www.cardinchina.com/'>www.cardinchina.com</a>"&chr(13)
    cust_id=rs("cust_id")
    email=rs("email")
    'Dim MailObject 
    'Set MailObject = Server.CreateObject("CDONTS.NewMail") 
    'MailObject.From="no-reply@cardinchina.com"	'发件邮址 
    'MailObject.To=email '收件人 
    'MailObject.Subject="您在游龙网的密码重置" 
    'MailObject.Body=mailbody 
    'MailObject.MailFormat = 0
    'MailObject.BodyFormat = 0
    'MailObject.Send '发送邮件 

    Set msg = Server.CreateOBject( "JMail.Message" )
    msg.Logging = true
    msg.silent = true
    msg.Charset = "utf-8"
    msg.From = "no-reply@cardinchina.com"
    msg.FromName = "游龙网"
    msg.MailServerUserName = "no-reply@cardinchina.com"'
    msg.MailServerPassword = "max3124"
    msg.AddRecipient email
    msg.Subject = "您在游龙网的密码重置"
    msg.HTMLBody = mailbody

    If msg.Send("mail.cardinchina.com" ) Then						
        Response.Write "<br />密码重置已经发送到您的信箱中了!"	
    End If 
    Set msg = Nothing
Else
    Response.Write "会员帐号与e-mail不匹配!"
End If
    %>
    
    <!--#include file="bottom.asp"-->
